home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
oledsrvr.zip
/
SRVRTIMR.FRM
< prev
Wrap
Text File
|
1996-01-03
|
2KB
|
78 lines
VERSION 4.00
Begin VB.Form frmTimer
Caption = "olesrv3"
ClientHeight = 2895
ClientLeft = 4155
ClientTop = 960
ClientWidth = 3000
ControlBox = 0 'False
Height = 3300
Left = 4095
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2895
ScaleWidth = 3000
Top = 615
Visible = 0 'False
Width = 3120
Begin VB.CommandButton Command1
Caption = "&Clear"
Height = 360
Left = 1845
TabIndex = 1
Top = 2385
Width = 1035
End
Begin VB.ListBox List1
Height = 2205
Left = 30
TabIndex = 0
Top = 45
Width = 2820
End
Begin VB.Timer Timer1
Interval = 8000
Left = 1245
Top = 735
End
End
Attribute VB_Name = "frmTimer"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
List1.Clear
End Sub
Private Sub timer1_Timer()
'----- Run continuously until all object
' references are released. For testing,
' leave running until manual program
' shutdown.
'----- Note: in real-life situation there would
' be an error handler in function NxtItm().
Dim lngCount As Long
If gcolQueue.Count > 0 Then
timer1.Enabled = False
List1.AddItem gcolQueue(1).ID & ": Processing request "
List1.Refresh
lngCount = NxtItm()
gcolQueue(1).Notify (lngCount)
gcolQueue.Remove 1
timer1.Enabled = True
End If
End Sub